/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / lunar.elc.z / lunar.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 46 72 69 20 | 4a 61 6e 20 32 36 20 30 | on Fri |Jan 26 0|
|00000040| 31 3a 35 30 3a 34 37 20 | 31 39 39 36 0a 3b 3b 3b |1:50:47 |1996.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 6c 75 6e 61 72 2e | 65 6c 0a 3b 3b 3b 20 65 |p/lunar.|el.;;; e|
|00000080| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|00000090| 33 30 2e 39 30 2e 31 2e | 0a 3b 3b 3b 20 62 79 74 |30.90.1.|.;;; byt|
|000000a0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 46 53 |ecomp ve|rsion FS|
|000000b0| 46 20 32 2e 31 30 0a 3b | 3b 3b 20 6f 70 74 69 6d |F 2.10.;|;; optim|
|000000c0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|000000d0| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|000000e0| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|000000f0| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000100| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000110| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000120| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000130| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000140| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000150| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000160| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|00000170| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|00000180| 6e 20 22 31 39 2e 32 39 | 22 29 29 29 0a 20 20 20 |n "19.29|"))).   |
|00000190| 20 28 65 72 72 6f 72 20 | 22 60 6c 75 6e 61 72 2e | (error |"`lunar.|
|000001a0| 65 6c 27 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |el' was |compiled|
|000001b0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 2e 32 39 | for Ema|cs 19.29|
|000001c0| 20 6f 72 20 6c 61 74 65 | 72 22 29 29 0a 0a 0a 28 | or late|r"))...(|
|000001d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 83 0d |byte-cod|e "..!..|
|000001e0| 00 c2 c3 21 88 82 11 00 | c4 c5 21 88 c2 c6 21 87 |...!....|..!...!.|
|000001f0| 22 20 5b 66 62 6f 75 6e | 64 70 20 61 74 61 6e 20 |" [fboun|dp atan |
|00000200| 72 65 71 75 69 72 65 20 | 6c 69 73 70 2d 66 6c 6f |require |lisp-flo|
|00000210| 61 74 2d 74 79 70 65 20 | 65 72 72 6f 72 20 22 4c |at-type |error "L|
|00000220| 75 6e 61 72 20 63 61 6c | 63 75 6c 61 74 69 6f 6e |unar cal|culation|
|00000230| 73 20 69 6d 70 6f 73 73 | 69 62 6c 65 20 73 69 6e |s imposs|ible sin|
|00000240| 63 65 20 66 6c 6f 61 74 | 69 6e 67 20 70 6f 69 6e |ce float|ing poin|
|00000250| 74 20 69 73 20 75 6e 61 | 76 61 69 6c 61 62 6c 65 |t is una|vailable|
|00000260| 2e 22 20 73 6f 6c 61 72 | 5d 20 32 29 0a 23 40 37 |." solar|] 2).#@7|
|00000270| 36 20 4c 69 73 74 20 6f | 66 20 6c 75 6e 61 72 20 |6 List o|f lunar |
|00000280| 70 68 61 73 65 73 20 66 | 6f 72 20 74 68 72 65 65 |phases f|or three|
|00000290| 20 6d 6f 6e 74 68 73 20 | 73 74 61 72 74 69 6e 67 | months |starting|
|000002a0| 20 77 69 74 68 20 47 72 | 65 67 6f 72 69 61 6e 20 | with Gr|egorian |
|000002b0| 4d 4f 4e 54 48 2c 20 59 | 45 41 52 2e 1f 0a 28 64 |MONTH, Y|EAR...(d|
|000002c0| 65 66 61 6c 69 61 73 20 | 27 6c 75 6e 61 72 2d 70 |efalias |'lunar-p|
|000002d0| 68 61 73 65 2d 6c 69 73 | 74 20 23 5b 28 6d 6f 6e |hase-lis|t #[(mon|
|000002e0| 74 68 20 79 65 61 72 29 | 20 22 08 09 08 09 1a 1b |th year)| "......|
|000002f0| 1c 1d 5c 66 c6 5f 0d 5c | 5c c7 5c 5c 89 1e 08 c6 |..\f._.\|\.\\....|
|00000300| a6 54 15 0e 08 c6 a5 14 | 29 5c 6e c6 5f 0b 5c 5c |.T......|)\n._.\\|
|00000310| c9 5c 5c 89 1e 08 c6 a6 | 54 13 0e 08 c6 a5 12 29 |.\\.....|T......)|
|00000320| 0d ca 5c 66 45 43 1e 0b | 0b 89 5c 6e 19 89 18 c7 |..\fEC..|..\n....|
|00000330| 55 83 62 00 09 89 19 cc | a6 cd 55 85 5a 00 09 ce |U.b.....|..U.Z...|
|00000340| a6 cd 55 3f 86 5a 00 09 | cf a6 cd 55 29 83 62 00 |..U?.Z..|...U).b.|
|00000350| d0 82 66 00 d1 08 53 48 | 2a 5c 6e 45 43 1e 12 d3 |..f...SH|*\nEC...|
|00000360| d4 09 08 ca 09 45 89 1e | 15 89 1e 15 40 29 18 0e |.....E..|....@)..|
|00000370| 15 89 1e 15 41 40 29 1e | 16 0e 15 89 1e 15 41 41 |....A@).|......AA|
|00000380| 40 29 19 0e 16 08 53 d7 | 5f 5c 5c 1e 18 08 c7 56 |@)....S.|_\\....V|
|00000390| 83 cc 00 0e 18 08 cc 5f | d9 5c 5c da a5 5a 16 18 |......._|.\\..Z..|
|000003a0| 09 89 19 cc a6 cd 55 85 | c3 00 09 ce a6 cd 55 3f |......U.|......U?|
|000003b0| 86 c3 00 09 cf a6 cd 55 | 29 83 cc 00 0e 18 54 16 |.......U|).....T.|
|000003c0| 18 0e 18 2d db a5 5c 5c | dc 5c 5c 5f 21 cc 5f 1e |...-..\\|.\\_!._.|
|000003d0| 1d de 0e 1d 21 1e 1f e0 | 1e 21 e2 0e 1f 0e 0b 5c |....!...|.!.....\|
|000003e0| 22 83 5c 66 01 e2 0e 12 | 0e 1f 5c 22 83 fe 00 e3 |".\f....|..\"....|
|000003f0| 0e 21 0e 1f 43 5c 22 16 | 21 0e 1d 54 16 1d de 0e |.!..C\".|!..T....|
|00000400| 1d 21 16 1f 82 e3 00 0e | 21 2e 09 87 22 20 5b 6d |.!......|!..." [m|
|00000410| 6f 6e 74 68 20 79 65 61 | 72 20 73 74 61 72 74 2d |onth yea|r start-|
|00000420| 79 65 61 72 20 73 74 61 | 72 74 2d 6d 6f 6e 74 68 |year sta|rt-month|
|00000430| 20 65 6e 64 2d 79 65 61 | 72 20 65 6e 64 2d 6d 6f | end-yea|r end-mo|
|00000440| 6e 74 68 20 31 32 20 32 | 20 6d 61 63 72 6f 2d 79 |nth 12 2| macro-y|
|00000450| 20 2d 32 20 31 20 65 6e | 64 2d 64 61 74 65 20 34 | -2 1 en|d-date 4|
|00000460| 20 30 20 31 30 30 20 34 | 30 30 20 32 39 20 5b 33 | 0 100 4|00 29 [3|
|00000470| 31 20 32 38 20 33 31 20 | 33 30 20 33 31 20 33 30 |1 28 31 |30 31 30|
|00000480| 20 33 31 20 33 31 20 33 | 30 20 33 31 20 33 30 20 | 31 31 3|0 31 30 |
|00000490| 33 31 5d 20 73 74 61 72 | 74 2d 64 61 74 65 20 74 |31] star|t-date t|
|000004a0| 72 75 6e 63 61 74 65 20 | 31 32 2e 33 36 38 34 39 |runcate |12.36849|
|000004b0| 39 39 39 39 39 39 39 39 | 39 39 20 64 61 74 65 20 |99999999|99 date |
|000004c0| 64 61 79 20 33 31 20 64 | 61 79 2d 6f 66 2d 79 65 |day 31 d|ay-of-ye|
|000004d0| 61 72 20 32 33 20 31 30 | 20 33 36 36 2e 30 20 2d |ar 23 10| 366.0 -|
|000004e0| 31 39 30 30 20 69 6e 64 | 65 78 20 6c 75 6e 61 72 |1900 ind|ex lunar|
|000004f0| 2d 70 68 61 73 65 20 6e | 65 77 2d 6d 6f 6f 6e 20 |-phase n|ew-moon |
|00000500| 6e 69 6c 20 6c 69 73 74 | 20 63 61 6c 65 6e 64 61 |nil list| calenda|
|00000510| 72 2d 64 61 74 65 2d 63 | 6f 6d 70 61 72 65 20 61 |r-date-c|ompare a|
|00000520| 70 70 65 6e 64 5d 20 38 | 20 28 23 24 20 2e 20 36 |ppend] 8| (#$ . 6|
|00000530| 32 36 29 5d 29 0a 23 40 | 32 31 30 20 4c 6f 63 61 |26)]).#@|210 Loca|
|00000540| 6c 20 64 61 74 65 20 61 | 6e 64 20 74 69 6d 65 20 |l date a|nd time |
|00000550| 6f 66 20 6c 75 6e 61 72 | 20 70 68 61 73 65 20 49 |of lunar| phase I|
|00000560| 4e 44 45 58 2e 0a 49 6e | 74 65 67 65 72 20 62 65 |NDEX..In|teger be|
|00000570| 6c 6f 77 20 49 4e 44 45 | 58 2f 34 20 67 69 76 65 |low INDE|X/4 give|
|00000580| 73 20 74 68 65 20 6c 75 | 6e 61 74 69 6f 6e 20 6e |s the lu|nation n|
|00000590| 75 6d 62 65 72 2c 20 63 | 6f 75 6e 74 69 6e 67 20 |umber, c|ounting |
|000005a0| 66 72 6f 6d 20 4a 61 6e | 20 31 2c 20 31 39 30 30 |from Jan| 1, 1900|
|000005b0| 3b 0a 72 65 6d 61 69 6e | 64 65 72 20 6d 6f 64 20 |;.remain|der mod |
|000005c0| 34 20 67 69 76 65 73 20 | 74 68 65 20 70 68 61 73 |4 gives |the phas|
|000005d0| 65 3a 20 30 20 6e 65 77 | 20 6d 6f 6f 6e 2c 20 31 |e: 0 new| moon, 1|
|000005e0| 20 66 69 72 73 74 20 71 | 75 61 72 74 65 72 2c 20 | first q|uarter, |
|000005f0| 32 20 66 75 6c 6c 20 6d | 6f 6f 6e 2c 0a 33 20 6c |2 full m|oon,.3 l|
|00000600| 61 73 74 20 71 75 61 72 | 74 65 72 2e 1f 0a 28 64 |ast quar|ter...(d|
|00000610| 65 66 61 6c 69 61 73 20 | 27 6c 75 6e 61 72 2d 70 |efalias |'lunar-p|
|00000620| 68 61 73 65 20 23 5b 28 | 69 6e 64 65 78 29 20 22 |hase #[(|index) "|
|00000630| c0 09 c2 5c 22 1b 09 c4 | a5 89 19 c5 a5 1e 06 c7 |...\"...|........|
|00000640| 1e 08 c7 89 1e 08 41 41 | 40 29 53 1e 09 0e 08 89 |......AA|@)S.....|
|00000650| 1e 08 89 1e 08 40 29 1e | 5c 6e 0e 08 89 1e 08 41 |.....@).|\n.....A|
|00000660| 40 29 1e 0b 0e 08 89 1e | 08 41 41 40 29 1e 5c 66 |@)......|.AA@).\f|
|00000670| 0e 0b 0e 5c 6e 53 cd 5f | 5c 5c 1e 0e 0e 5c 6e cf |...\nS._|\\...\n.|
|00000680| 56 83 80 00 0e 0e 0e 5c | 6e c2 5f d0 5c 5c d1 a5 |V......\|n._.\\..|
|00000690| 5a 16 0e 0e 5c 66 89 1e | 5c 66 c2 a6 d2 55 85 77 |Z...\f..|\f...U.w|
|000006a0| 00 0e 5c 66 d3 a6 d2 55 | 3f 86 77 00 0e 5c 66 d4 |..\f...U|?.w..\f.|
|000006b0| a6 d2 55 29 83 80 00 0e | 0e 54 16 0e 0e 0e 2d 0e |..U)....|.T....-.|
|000006c0| 09 d5 5f 5c 5c 0e 09 c2 | a5 5c 5c 0e 09 d3 a5 5b |.._\\...|.\\....[|
|000006d0| 5c 5c 0e 09 d4 a5 5c 5c | 2a d6 5c 5c d7 09 5f 5c |\\....\\|*.\\.._\|
|000006e0| 5c d8 0e 06 5f 0e 06 5f | 5c 5c d9 0e 06 5f 0e 06 |\..._.._|\\..._..|
|000006f0| 5f 0e 06 5f 5c 5c da db | dc dd 0e 06 5f 5c 5c de |_.._\\..|...._\\.|
|00000700| 0e 06 5f 0e 06 5f 5c 5c | 21 5f 5c 5c 1e 08 c0 df |.._.._\\|!_\\....|
|00000710| e0 09 5f 5c 5c e1 0e 06 | 5f 0e 06 5f 5c 5c e2 0e |.._\\...|_.._\\..|
|00000720| 06 5f 0e 06 5f 0e 06 5f | 5c 5c e3 5c 22 1e 24 c0 |._.._.._|\\.\".$.|
|00000730| e5 e6 09 5f 5c 5c e7 0e | 06 5f 0e 06 5f 5c 5c e8 |..._\\..|._.._\\.|
|00000740| 0e 06 5f 0e 06 5f 0e 06 | 5f 5c 5c e9 5c 22 1e 2a |.._.._..|_\\.\".*|
|00000750| c0 eb ec 09 5f 5c 5c ed | 0e 06 5f 0e 06 5f 5c 5c |...._\\.|.._.._\\|
|00000760| ee 0e 06 5f 0e 06 5f 0e | 06 5f 5c 5c ef 5c 22 1e |..._.._.|._\\.\".|
|00000770| 30 0b f1 3e 83 af 01 f2 | f3 0e 06 5f 5a db 0e 24 |0..>....|..._Z..$|
|00000780| 21 5f f4 db 0e 24 89 5c | 5c 21 5f 5c 5c f5 db 0e |!_...$.\|\!_\\...|
|00000790| 2a 21 5f 5c 5c f6 db 0e | 2a 89 5c 5c 21 5f 5c 5c |*!_\\...|*.\\!_\\|
|000007a0| f7 db 0e 2a f8 5f 21 5f | 5c 5c f9 db 0e 30 89 5c |...*._!_|\\...0.\|
|000007b0| 5c 21 5f 5c 5c fa db 0e | 24 0e 2a 5c 5c 21 5f 5c |\!_\\...|$.*\\!_\|
|000007c0| 5c fb db 0e 24 0e 2a 5a | 21 5f 5c 5c fc db 0e 30 |\...$.*Z|!_\\...0|
|000007d0| 89 5c 5c 0e 24 5c 5c 21 | 5f 5c 5c fd db 0e 30 89 |.\\.$\\!|_\\...0.|
|000007e0| 5c 5c 0e 24 5a 21 5f 5c | 5c fe db 0e 30 89 5c 5c |\\.$Z!_\|\...0.\\|
|000007f0| 0e 2a 5c 5c 21 5f 5c 5c | ff db 0e 30 89 5c 5c 0e |.*\\!_\\|...0.\\.|
|00000800| 2a 5a 21 5f 5c 5c 81 40 | 00 db 0e 2a 89 5c 5c 0e |*Z!_\\.@|...*.\\.|
|00000810| 24 5c 5c 21 5f 5c 5c 82 | 6d 02 81 41 00 81 42 00 |$\\!_\\.|m..A..B.|
|00000820| 0e 06 5f 5a db 0e 24 21 | 5f 81 43 00 db 0e 24 89 |.._Z..$!|_.C...$.|
|00000830| 5c 5c 21 5f 5c 5c 81 44 | 00 db 0e 2a 21 5f 5c 5c |\\!_\\.D|...*!_\\|
|00000840| 81 45 00 db 0e 2a 89 5c | 5c 21 5f 5c 5c 81 46 00 |.E...*.\|\!_\\.F.|
|00000850| db 0e 2a f8 5f 21 5f 5c | 5c 81 47 00 db 0e 30 89 |..*._!_\|\.G...0.|
|00000860| 5c 5c 21 5f 5c 5c 81 48 | 00 db 0e 24 0e 2a 5c 5c |\\!_\\.H|...$.*\\|
|00000870| 21 5f 5c 5c 81 49 00 db | 0e 24 0e 2a 5a 21 5f 5c |!_\\.I..|.$.*Z!_\|
|00000880| 5c 81 4a 00 db 0e 30 89 | 5c 5c 0e 24 5c 5c 21 5f |\.J...0.|\\.$\\!_|
|00000890| 5c 5c 81 4b 00 db 0e 30 | 89 5c 5c 0e 24 5a 21 5f |\\.K...0|.\\.$Z!_|
|000008a0| 5c 5c 81 4c 00 db 0e 30 | 89 5c 5c 0e 2a 5c 5c 21 |\\.L...0|.\\.*\\!|
|000008b0| 5f 5c 5c 81 4d 00 db 0e | 30 89 5c 5c 0e 2a 5a 21 |_\\.M...|0.\\.*Z!|
|000008c0| 5f 5c 5c 81 4e 00 db 0e | 2a 89 5c 5c 0e 24 5c 5c |_\\.N...|*.\\.$\\|
|000008d0| 21 5f 5c 5c 81 4f 00 db | 0e 24 0e 2a 89 5c 5c 5a |!_\\.O..|.$.*.\\Z|
|000008e0| 21 5f 5c 5c 81 50 00 db | 0e 24 89 5c 5c 0e 2a 5c |!_\\.P..|.$.\\.*\|
|000008f0| 5c 21 5f 5c 5c 1e 51 81 | 52 00 81 53 00 81 54 00 |\!_\\.Q.|R..S..T.|
|00000900| 0e 24 21 5f 5c 5c 81 55 | 00 81 54 00 0e 2a 21 5f |.$!_\\.U|..T..*!_|
|00000910| 5c 5c 1e 56 0b 81 57 00 | 55 83 9a 02 0e 51 0e 56 |\\.V..W.|U....Q.V|
|00000920| 5c 5c 82 aa 02 0b cf 55 | 83 a8 02 0e 51 0e 56 5a |\\.....U|....Q.VZ|
|00000930| 82 aa 02 0e 51 1e 51 0e | 08 0e 51 5c 5c 89 1e 08 |....Q.Q.|..Q\\...|
|00000940| 0e 58 81 59 00 81 5a 00 | 81 5b 00 0e 08 21 21 89 |.X.Y..Z.|.[...!!.|
|00000950| 1e 08 41 41 40 29 21 5a | 81 5c 5c 00 a5 81 5d 00 |..AA@)!Z|.\\...].|
|00000960| a5 5c 5c 89 1e 08 81 5b | 00 0e 08 21 5a 81 5e 00 |.\\....[|...!Z.^.|
|00000970| 5f 1e 06 81 5a 00 81 5b | 00 0e 08 21 21 1e 08 81 |_...Z..[|...!!...|
|00000980| 5f 00 0e 08 0e 06 5c 22 | 89 1e 56 40 81 60 00 81 |_.....\"|..V@.`..|
|00000990| 61 00 0e 56 41 5c 22 0b | 45 2e 0f 87 22 20 5b 6d |a..VA\".|E..." [m|
|000009a0| 6f 64 20 69 6e 64 65 78 | 20 34 20 70 68 61 73 65 |od index| 4 phase|
|000009b0| 20 34 2e 30 20 31 32 33 | 36 2e 38 34 39 39 39 39 | 4.0 123|6.849999|
|000009c0| 39 39 39 39 39 39 39 20 | 74 69 6d 65 20 28 31 20 |9999999 |time (1 |
|000009d0| 2e 35 20 31 39 30 30 29 | 20 64 61 74 65 20 70 72 |.5 1900)| date pr|
|000009e0| 69 6f 72 2d 79 65 61 72 | 73 20 6d 6f 6e 74 68 20 |ior-year|s month |
|000009f0| 64 61 79 20 79 65 61 72 | 20 33 31 20 64 61 79 2d |day year| 31 day-|
|00000a00| 6f 66 2d 79 65 61 72 20 | 32 20 32 33 20 31 30 20 |of-year |2 23 10 |
|00000a10| 30 20 31 30 30 20 34 30 | 30 20 33 36 35 20 2e 37 |0 100 40|0 365 .7|
|00000a20| 35 39 33 32 39 39 39 39 | 39 39 39 39 39 39 39 33 |59329999|99999993|
|00000a30| 20 32 39 2e 35 33 30 35 | 38 38 36 38 30 30 30 30 | 29.5305|88680000|
|00000a40| 30 30 31 20 2e 30 30 30 | 31 31 37 37 39 39 39 39 |001 .000|11779999|
|00000a50| 39 39 39 39 39 39 39 39 | 39 20 2d 31 2e 35 35 65 |99999999|9 -1.55e|
|00000a60| 2d 30 30 37 20 2e 30 30 | 30 33 33 30 30 30 30 30 |-007 .00|03300000|
|00000a70| 30 30 30 30 30 30 30 30 | 30 33 20 73 6f 6c 61 72 |00000000|03 solar|
|00000a80| 2d 73 69 6e 2d 64 65 67 | 72 65 65 73 20 31 36 36 |-sin-deg|rees 166|
|00000a90| 2e 35 36 20 31 33 32 2e | 38 37 20 2d 2e 30 30 39 |.56 132.|87 -.009|
|00000aa0| 31 37 33 20 33 35 39 2e | 32 32 34 32 20 32 39 2e |173 359.|2242 29.|
|00000ab0| 31 30 35 33 35 36 20 2d | 33 2e 33 33 30 30 30 30 |105356 -|3.330000|
|00000ac0| 30 30 30 30 30 30 30 30 | 30 31 65 2d 30 30 35 20 |00000000|01e-005 |
|00000ad0| 2d 33 2e 34 37 30 30 30 | 30 30 30 30 30 30 30 30 |-3.47000|00000000|
|00000ae0| 30 30 32 65 2d 30 30 36 | 20 33 36 30 2e 30 20 73 |002e-006| 360.0 s|
|00000af0| 75 6e 2d 61 6e 6f 6d 61 | 6c 79 20 33 30 36 2e 30 |un-anoma|ly 306.0|
|00000b00| 32 35 33 30 30 30 30 30 | 30 30 30 30 32 20 33 38 |25300000|00002 38|
|00000b10| 35 2e 38 31 36 39 31 38 | 30 35 39 39 39 39 39 38 |5.816918|05999998|
|00000b20| 20 2e 30 31 30 37 33 30 | 35 39 39 39 39 39 39 39 | .010730|59999999|
|00000b30| 39 39 39 39 20 31 2e 32 | 33 35 39 39 39 39 39 39 |9999 1.2|35999999|
|00000b40| 39 39 39 39 39 39 38 65 | 2d 30 30 35 20 33 36 30 |9999998e|-005 360|
|00000b50| 2e 30 20 6d 6f 6f 6e 2d | 61 6e 6f 6d 61 6c 79 20 |.0 moon-|anomaly |
|00000b60| 32 31 2e 32 39 36 33 39 | 39 39 39 39 39 39 39 39 |21.29639|99999999|
|00000b70| 39 38 20 33 39 30 2e 36 | 37 30 35 30 36 34 36 30 |98 390.6|70506460|
|00000b80| 30 30 30 30 31 20 2d 2e | 30 30 31 36 35 32 38 20 |00001 -.|0016528 |
|00000b90| 2d 32 2e 33 38 39 39 39 | 39 39 39 39 39 39 39 39 |-2.38999|99999999|
|00000ba0| 39 39 37 65 2d 30 30 36 | 20 33 36 30 2e 30 20 6d |997e-006| 360.0 m|
|00000bb0| 6f 6f 6e 2d 6c 61 74 20 | 28 30 20 32 29 20 2e 31 |oon-lat |(0 2) .1|
|00000bc0| 37 33 34 20 2e 30 30 30 | 33 39 33 30 30 30 30 30 |734 .000|39300000|
|00000bd0| 30 30 30 30 30 30 30 30 | 31 20 2e 30 30 32 30 39 |00000000|1 .00209|
|00000be0| 39 39 39 39 39 39 39 39 | 39 39 39 39 39 36 20 2d |99999999|999996 -|
|00000bf0| 2e 34 30 36 37 39 39 39 | 39 39 39 39 39 39 39 39 |.4067999|99999999|
|00000c00| 39 36 20 2e 30 31 36 31 | 30 30 30 30 30 30 30 30 |96 .0161|00000000|
|00000c10| 30 30 30 30 30 31 20 2d | 2e 30 30 30 34 20 33 20 |000001 -|.0004 3 |
|00000c20| 2e 30 31 30 34 20 2d 2e | 30 30 35 30 39 39 39 39 |.0104 -.|00509999|
|00000c30| 39 39 39 39 39 39 39 39 | 39 39 36 20 2d 2e 30 30 |99999999|996 -.00|
|00000c40| 37 34 30 30 30 30 30 30 | 30 30 30 30 30 30 30 31 |74000000|00000001|
|00000c50| 32 20 2e 30 30 30 34 20 | 2d 2e 30 30 30 34 20 2d |2 .0004 |-.0004 -|
|00000c60| 2e 30 30 30 35 39 39 39 | 39 39 39 39 39 39 39 39 |.0005999|99999999|
|00000c70| 39 39 39 38 32 20 2e 30 | 30 31 20 2e 30 30 30 35 |99982 .0|01 .0005|
|00000c80| 20 2e 31 37 32 31 30 30 | 30 30 30 30 30 30 30 30 | .172100|00000000|
|00000c90| 30 30 31 20 2e 30 30 30 | 34 20 2e 30 30 32 30 39 |001 .000|4 .00209|
|00000ca0| 39 39 39 39 39 39 39 39 | 39 39 39 39 39 36 20 2d |99999999|999996 -|
|00000cb0| 2e 36 32 38 30 30 30 30 | 30 30 30 30 30 30 30 30 |.6280000|00000000|
|00000cc0| 30 32 20 2e 30 30 38 38 | 39 39 39 39 39 39 39 39 |02 .0088|99999999|
|00000cd0| 39 39 39 39 39 38 36 20 | 2d 2e 30 30 30 34 20 2e |9999986 |-.0004 .|
|00000ce0| 30 30 37 39 30 30 30 30 | 30 30 30 30 30 30 30 30 |00790000|00000000|
|00000cf0| 30 31 32 20 2d 2e 30 31 | 31 39 30 30 30 30 30 30 |012 -.01|19000000|
|00000d00| 30 30 30 30 30 30 30 32 | 20 2d 2e 30 30 34 36 39 |00000002| -.00469|
|00000d10| 39 39 39 39 39 39 39 39 | 39 39 39 39 39 33 20 2e |99999999|999993 .|
|00000d20| 30 30 30 32 39 39 39 39 | 39 39 39 39 39 39 39 39 |00029999|99999999|
|00000d30| 39 39 39 31 20 2d 2e 30 | 30 30 34 20 2d 2e 30 30 |9991 -.0|004 -.00|
|00000d40| 30 35 39 39 39 39 39 39 | 39 39 39 39 39 39 39 39 |05999999|99999999|
|00000d50| 38 32 20 2e 30 30 32 30 | 39 39 39 39 39 39 39 39 |82 .0020|99999999|
|00000d60| 39 39 39 39 39 39 36 20 | 2e 30 30 30 32 39 39 39 |9999996 |.0002999|
|00000d70| 39 39 39 39 39 39 39 39 | 39 39 39 39 31 20 2e 30 |99999999|99991 .0|
|00000d80| 30 30 34 20 2d 2e 30 30 | 30 32 39 39 39 39 39 39 |004 -.00|02999999|
|00000d90| 39 39 39 39 39 39 39 39 | 39 31 20 61 64 6a 75 73 |99999999|91 adjus|
|00000da0| 74 6d 65 6e 74 20 2e 30 | 30 32 38 30 30 30 30 30 |tment .0|02800000|
|00000db0| 30 30 30 30 30 30 30 30 | 30 34 20 2d 2e 30 30 30 |00000000|04 -.000|
|00000dc0| 34 20 73 6f 6c 61 72 2d | 63 6f 73 69 6e 65 2d 64 |4 solar-|cosine-d|
|00000dd0| 65 67 72 65 65 73 20 2e | 30 30 30 32 39 39 39 39 |egrees .|00029999|
|00000de0| 39 39 39 39 39 39 39 39 | 39 39 39 31 20 61 64 6a |99999999|9991 adj|
|00000df0| 20 31 20 63 61 6c 65 6e | 64 61 72 2d 74 69 6d 65 | 1 calen|dar-time|
|00000e00| 2d 7a 6f 6e 65 20 73 6f | 6c 61 72 2d 65 70 68 65 |-zone so|lar-ephe|
|00000e10| 6d 65 72 69 73 2d 63 6f | 72 72 65 63 74 69 6f 6e |meris-co|rrection|
|00000e20| 20 63 61 6c 65 6e 64 61 | 72 2d 67 72 65 67 6f 72 | calenda|r-gregor|
|00000e30| 69 61 6e 2d 66 72 6f 6d | 2d 61 62 73 6f 6c 75 74 |ian-from|-absolut|
|00000e40| 65 20 74 72 75 6e 63 61 | 74 65 20 36 30 2e 30 20 |e trunca|te 60.0 |
|00000e50| 32 34 2e 30 20 32 34 20 | 64 73 74 2d 61 64 6a 75 |24.0 24 |dst-adju|
|00000e60| 73 74 2d 74 69 6d 65 20 | 61 70 70 6c 79 20 73 6f |st-time |apply so|
|00000e70| 6c 61 72 2d 74 69 6d 65 | 2d 73 74 72 69 6e 67 5d |lar-time|-string]|
|00000e80| 20 37 20 28 23 24 20 2e | 20 31 33 34 30 29 5d 29 | 7 (#$ .| 1340)])|
|00000e90| 0a 23 40 38 38 20 4e 61 | 6d 65 20 6f 66 20 6c 75 |.#@88 Na|me of lu|
|00000ea0| 6e 61 72 20 50 48 41 53 | 45 2e 0a 30 20 3d 20 6e |nar PHAS|E..0 = n|
|00000eb0| 65 77 20 6d 6f 6f 6e 2c | 20 31 20 3d 20 66 69 72 |ew moon,| 1 = fir|
|00000ec0| 73 74 20 71 75 61 72 74 | 65 72 2c 20 32 20 3d 20 |st quart|er, 2 = |
|00000ed0| 66 75 6c 6c 20 6d 6f 6f | 6e 2c 20 33 20 3d 20 6c |full moo|n, 3 = l|
|00000ee0| 61 73 74 20 71 75 61 72 | 74 65 72 2e 1f 0a 28 64 |ast quar|ter...(d|
|00000ef0| 65 66 61 6c 69 61 73 20 | 27 6c 75 6e 61 72 2d 70 |efalias |'lunar-p|
|00000f00| 68 61 73 65 2d 6e 61 6d | 65 20 23 5b 28 70 68 61 |hase-nam|e #[(pha|
|00000f10| 73 65 29 20 22 08 c1 55 | 83 08 00 c2 87 08 c3 55 |se) "..U|.......U|
|00000f20| 83 10 00 c4 87 08 c5 55 | 83 18 00 c6 87 08 c7 55 |.......U|.......U|
|00000f30| 85 1f 00 c8 87 22 20 5b | 70 68 61 73 65 20 30 20 |....." [|phase 0 |
|00000f40| 22 4e 65 77 20 4d 6f 6f | 6e 22 20 31 20 22 46 69 |"New Moo|n" 1 "Fi|
|00000f50| 72 73 74 20 51 75 61 72 | 74 65 72 20 4d 6f 6f 6e |rst Quar|ter Moon|
|00000f60| 22 20 32 20 22 46 75 6c | 6c 20 4d 6f 6f 6e 22 20 |" 2 "Ful|l Moon" |
|00000f70| 33 20 22 4c 61 73 74 20 | 51 75 61 72 74 65 72 20 |3 "Last |Quarter |
|00000f80| 4d 6f 6f 6e 22 5d 20 32 | 20 28 23 24 20 2e 20 33 |Moon"] 2| (#$ . 3|
|00000f90| 37 33 34 29 5d 29 0a 23 | 40 37 32 20 43 72 65 61 |734)]).#|@72 Crea|
|00000fa0| 74 65 20 61 20 62 75 66 | 66 65 72 20 77 69 74 68 |te a buf|fer with|
|00000fb0| 20 74 68 65 20 6c 75 6e | 61 72 20 70 68 61 73 65 | the lun|ar phase|
|00000fc0| 73 20 66 6f 72 20 74 68 | 65 20 63 75 72 72 65 6e |s for th|e curren|
|00000fd0| 74 20 63 61 6c 65 6e 64 | 61 72 20 77 69 6e 64 6f |t calend|ar windo|
|00000fe0| 77 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |w...(def|alias 'c|
|00000ff0| 61 6c 65 6e 64 61 72 2d | 70 68 61 73 65 73 2d 6f |alendar-|phases-o|
|00001000| 66 2d 6d 6f 6f 6e 20 23 | 5b 6e 69 6c 20 22 c0 c1 |f-moon #|[nil "..|
|00001010| 21 88 5c 6e 0b 5c 6e 0b | 1c 1d 1e 06 1e 07 0e 06 |!.\n.\n.|........|
|00001020| c8 5f 0e 07 5c 5c c9 5c | 5c 89 1e 5c 6e c8 a6 54 |._..\\.\|\..\n..T|
|00001030| 16 07 0e 5c 6e c8 a5 16 | 06 29 5c 66 c8 5f 0d 5c |...\n...|.)\f._.\|
|00001040| 5c cb 5c 5c cc 5c 5c 89 | 1e 5c 6e c8 a6 54 15 0e |\.\\.\\.|.\n..T..|
|00001050| 5c 6e c8 a5 14 29 cd 0e | 0e 21 71 88 cf 16 10 d1 |\n...)..|.!q.....|
|00001060| 0e 06 5c 66 55 83 5b 00 | d2 d3 d4 0e 07 21 d4 0d |..\fU.[.|.....!..|
|00001070| 21 5c 66 24 82 68 00 d2 | d5 d4 0e 07 21 0e 06 d4 |!\f$.h..|....!...|
|00001080| 0d 21 5c 66 25 21 88 d6 | 20 88 d7 d8 d9 0e 07 0e |.!\f%!..| .......|
|00001090| 06 5c 22 da 23 63 88 65 | 62 88 db cf 21 88 dc 16 |.\".#c.e|b...!...|
|000010a0| 10 dd 0e 0e 21 88 c0 de | 21 2c 87 22 20 5b 6d 65 |....!...|!,." [me|
|000010b0| 73 73 61 67 65 20 22 43 | 6f 6d 70 75 74 69 6e 67 |ssage "C|omputing|
|000010c0| 20 70 68 61 73 65 73 20 | 6f 66 20 74 68 65 20 6d | phases |of the m|
|000010d0| 6f 6f 6e 2e 2e 2e 22 20 | 64 69 73 70 6c 61 79 65 |oon..." |displaye|
|000010e0| 64 2d 6d 6f 6e 74 68 20 | 64 69 73 70 6c 61 79 65 |d-month |displaye|
|000010f0| 64 2d 79 65 61 72 20 79 | 32 20 6d 32 20 79 31 20 |d-year y|2 m2 y1 |
|00001100| 6d 31 20 31 32 20 2d 32 | 20 6d 61 63 72 6f 2d 79 |m1 12 -2| macro-y|
|00001110| 20 2d 31 20 31 20 67 65 | 74 2d 62 75 66 66 65 72 | -1 1 ge|t-buffer|
|00001120| 2d 63 72 65 61 74 65 20 | 6c 75 6e 61 72 2d 70 68 |-create |lunar-ph|
|00001130| 61 73 65 73 2d 62 75 66 | 66 65 72 20 6e 69 6c 20 |ases-buf|fer nil |
|00001140| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|00001150| 20 63 61 6c 65 6e 64 61 | 72 2d 73 65 74 2d 6d 6f | calenda|r-set-mo|
|00001160| 64 65 2d 6c 69 6e 65 20 | 66 6f 72 6d 61 74 20 22 |de-line |format "|
|00001170| 50 68 61 73 65 73 20 6f | 66 20 74 68 65 20 4d 6f |Phases o|f the Mo|
|00001180| 6f 6e 20 66 72 6f 6d 20 | 25 73 20 74 6f 20 25 73 |on from |%s to %s|
|00001190| 2c 20 25 64 25 25 2d 22 | 20 63 61 6c 65 6e 64 61 |, %d%%-"| calenda|
|000011a0| 72 2d 6d 6f 6e 74 68 2d | 6e 61 6d 65 20 22 50 68 |r-month-|name "Ph|
|000011b0| 61 73 65 73 20 6f 66 20 | 74 68 65 20 4d 6f 6f 6e |ases of |the Moon|
|000011c0| 20 66 72 6f 6d 20 25 73 | 2c 20 25 64 20 74 6f 20 | from %s|, %d to |
|000011d0| 25 73 2c 20 25 64 25 25 | 2d 22 20 65 72 61 73 65 |%s, %d%%|-" erase|
|000011e0| 2d 62 75 66 66 65 72 20 | 6d 61 70 63 6f 6e 63 61 |-buffer |mapconca|
|000011f0| 74 20 23 5b 28 78 29 20 | 22 08 40 08 41 40 08 41 |t #[(x) |".@.A@.A|
|00001200| 41 40 19 1a 1b c4 0b 21 | c5 c6 09 21 c7 5c 6e b0 |A@.....!|...!.\n.|
|00001210| 05 2b 87 22 20 5b 78 20 | 70 68 61 73 65 20 74 69 |.+." [x |phase ti|
|00001220| 6d 65 20 64 61 74 65 20 | 63 61 6c 65 6e 64 61 72 |me date |calendar|
|00001230| 2d 64 61 74 65 2d 73 74 | 72 69 6e 67 20 22 3a 20 |-date-st|ring ": |
|00001240| 22 20 6c 75 6e 61 72 2d | 70 68 61 73 65 2d 6e 61 |" lunar-|phase-na|
|00001250| 6d 65 20 22 20 22 5d 20 | 35 5d 20 6c 75 6e 61 72 |me " "] |5] lunar|
|00001260| 2d 70 68 61 73 65 2d 6c | 69 73 74 20 22 5c 6e 22 |-phase-l|ist "\n"|
|00001270| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 6d 6f 64 69 | set-buf|fer-modi|
|00001280| 66 69 65 64 2d 70 20 74 | 20 64 69 73 70 6c 61 79 |fied-p t| display|
|00001290| 2d 62 75 66 66 65 72 20 | 22 43 6f 6d 70 75 74 69 |-buffer |"Computi|
|000012a0| 6e 67 20 70 68 61 73 65 | 73 20 6f 66 20 74 68 65 |ng phase|s of the|
|000012b0| 20 6d 6f 6f 6e 2e 2e 2e | 64 6f 6e 65 22 5d 20 38 | moon...|done"] 8|
|000012c0| 20 28 23 24 20 2e 20 33 | 39 39 36 29 20 6e 69 6c | (#$ . 3|996) nil|
|000012d0| 5d 29 0a 23 40 32 30 39 | 20 44 69 73 70 6c 61 79 |]).#@209| Display|
|000012e0| 20 74 68 65 20 71 75 61 | 72 74 65 72 73 20 6f 66 | the qua|rters of|
|000012f0| 20 74 68 65 20 6d 6f 6f | 6e 20 66 6f 72 20 6c 61 | the moo|n for la|
|00001300| 73 74 20 6d 6f 6e 74 68 | 2c 20 74 68 69 73 20 6d |st month|, this m|
|00001310| 6f 6e 74 68 2c 20 61 6e | 64 20 6e 65 78 74 20 6d |onth, an|d next m|
|00001320| 6f 6e 74 68 2e 0a 49 66 | 20 63 61 6c 6c 65 64 20 |onth..If| called |
|00001330| 77 69 74 68 20 61 6e 20 | 6f 70 74 69 6f 6e 61 6c |with an |optional|
|00001340| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|00001350| 2c 20 70 72 6f 6d 70 74 | 73 20 66 6f 72 20 6d 6f |, prompt|s for mo|
|00001360| 6e 74 68 20 61 6e 64 20 | 79 65 61 72 2e 0a 0a 54 |nth and |year...T|
|00001370| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 69 73 20 |his func|tion is |
|00001380| 73 75 69 74 61 62 6c 65 | 20 66 6f 72 20 65 78 65 |suitable| for exe|
|00001390| 63 75 74 69 6f 6e 20 69 | 6e 20 61 20 2e 65 6d 61 |cution i|n a .ema|
|000013a0| 63 73 20 66 69 6c 65 2e | 1f 0a 28 64 65 66 61 6c |cs file.|..(defal|
|000013b0| 69 61 73 20 27 70 68 61 | 73 65 73 2d 6f 66 2d 6d |ias 'pha|ses-of-m|
|000013c0| 6f 6f 6e 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |oon #[(&|optional|
|000013d0| 20 61 72 67 29 20 22 8a | 08 83 0b 00 c1 c2 21 82 | arg) ".|......!.|
|000013e0| 0d 00 c3 20 89 1c 89 1c | 40 29 1d 5c 66 89 1c 41 |... ....|@).\f..A|
|000013f0| 41 40 29 1e 06 c7 20 2c | 87 22 20 5b 61 72 67 20 |A@)... ,|." [arg |
|00001400| 63 61 6c 65 6e 64 61 72 | 2d 72 65 61 64 2d 64 61 |calendar|-read-da|
|00001410| 74 65 20 74 20 63 61 6c | 65 6e 64 61 72 2d 63 75 |te t cal|endar-cu|
|00001420| 72 72 65 6e 74 2d 64 61 | 74 65 20 64 61 74 65 20 |rrent-da|te date |
|00001430| 64 69 73 70 6c 61 79 65 | 64 2d 6d 6f 6e 74 68 20 |displaye|d-month |
|00001440| 64 69 73 70 6c 61 79 65 | 64 2d 79 65 61 72 20 63 |displaye|d-year c|
|00001450| 61 6c 65 6e 64 61 72 2d | 70 68 61 73 65 73 2d 6f |alendar-|phases-o|
|00001460| 66 2d 6d 6f 6f 6e 5d 20 | 33 20 28 23 24 20 2e 20 |f-moon] |3 (#$ . |
|00001470| 34 38 32 35 29 20 22 50 | 22 5d 29 0a 23 40 32 36 |4825) "P|"]).#@26|
|00001480| 20 4d 6f 6f 6e 20 70 68 | 61 73 65 73 20 64 69 61 | Moon ph|ases dia|
|00001490| 72 79 20 65 6e 74 72 79 | 2e 1f 0a 28 64 65 66 61 |ry entry|...(defa|
|000014a0| 6c 69 61 73 20 27 64 69 | 61 72 79 2d 70 68 61 73 |lias 'di|ary-phas|
|000014b0| 65 73 2d 6f 66 2d 6d 6f | 6f 6e 20 23 5b 6e 69 6c |es-of-mo|on #[nil|
|000014c0| 20 22 c0 c1 5c 6e 89 1a | 41 41 40 29 5c 6e 89 1a | "..\n..|AA@)\n..|
|000014d0| 89 1a 40 29 1b 5c 6e 89 | 1a 41 40 29 1c 5c 6e 89 |..@).\n.|.A@).\n.|
|000014e0| 1a 41 41 40 29 1d 5c 66 | 0b 53 c6 5f 5c 5c 1e 07 |.AA@).\f|.S._\\..|
|000014f0| 0b c8 56 83 5b 00 0e 07 | 0b c9 5f ca 5c 5c cb a5 |..V.[...|.._.\\..|
|00001500| 5a 16 07 0d 89 1d c9 a6 | cc 55 85 52 00 0d cd a6 |Z.......|.U.R....|
|00001510| cc 55 3f 86 52 00 0d ce | a6 cc 55 29 83 5b 00 0e |.U?.R...|..U).[..|
|00001520| 07 54 16 07 0e 07 2d cf | a5 5c 5c d0 5c 5c 5f 21 |.T....-.|.\\.\\_!|
|00001530| c9 5f 1e 11 d2 0e 11 21 | 1e 13 d4 0e 13 5c 6e 43 |._.....!|.....\nC|
|00001540| 5c 22 83 86 00 0e 11 54 | 16 11 d2 0e 11 21 16 13 |\".....T|.....!..|
|00001550| 82 6f 00 d5 0e 13 40 5c | 6e 5c 22 85 9c 00 d6 0e |.o....@\|n\".....|
|00001560| 13 41 41 40 21 d7 0e 13 | 41 40 51 2a 87 22 20 5b |.AA@!...|A@Q*." [|
|00001570| 74 72 75 6e 63 61 74 65 | 20 31 32 2e 33 36 38 34 |truncate| 12.3684|
|00001580| 39 39 39 39 39 39 39 39 | 39 39 39 20 64 61 74 65 |99999999|999 date|
|00001590| 20 6d 6f 6e 74 68 20 64 | 61 79 20 79 65 61 72 20 | month d|ay year |
|000015a0| 33 31 20 64 61 79 2d 6f | 66 2d 79 65 61 72 20 32 |31 day-o|f-year 2|
|000015b0| 20 34 20 32 33 20 31 30 | 20 30 20 31 30 30 20 34 | 4 23 10| 0 100 4|
|000015c0| 30 30 20 33 36 36 2e 30 | 20 2d 31 39 30 30 20 69 |00 366.0| -1900 i|
|000015d0| 6e 64 65 78 20 6c 75 6e | 61 72 2d 70 68 61 73 65 |ndex lun|ar-phase|
|000015e0| 20 70 68 61 73 65 20 63 | 61 6c 65 6e 64 61 72 2d | phase c|alendar-|
|000015f0| 64 61 74 65 2d 63 6f 6d | 70 61 72 65 20 63 61 6c |date-com|pare cal|
|00001600| 65 6e 64 61 72 2d 64 61 | 74 65 2d 65 71 75 61 6c |endar-da|te-equal|
|00001610| 20 6c 75 6e 61 72 2d 70 | 68 61 73 65 2d 6e 61 6d | lunar-p|hase-nam|
|00001620| 65 20 22 20 22 5d 20 38 | 20 28 23 24 20 2e 20 35 |e " "] 8| (#$ . 5|
|00001630| 32 34 39 29 5d 29 0a 23 | 40 35 32 20 41 73 74 72 |249)]).#|@52 Astr|
|00001640| 6f 6e 6f 6d 69 63 61 6c | 20 28 4a 75 6c 69 61 6e |onomical| (Julian|
|00001650| 29 20 64 61 79 20 6e 75 | 6d 62 65 72 20 6f 66 20 |) day nu|mber of |
|00001660| 4b 20 74 68 20 6e 65 77 | 20 6d 6f 6f 6e 2e 1f 0a |K th new| moon...|
|00001670| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 75 6e 61 72 |(defalia|s 'lunar|
|00001680| 2d 6e 65 77 2d 6d 6f 6f | 6e 2d 74 69 6d 65 20 23 |-new-moo|n-time #|
|00001690| 5b 28 6b 29 20 22 08 c1 | a5 89 1a 89 5f 1b 5c 6e |[(k) "..|...._.\n|
|000016a0| 89 5f 5c 6e 5f 1c 0b 89 | 5f 1d c6 c7 08 5f 5c 5c |._\n_...|_...._\\|
|000016b0| c8 0b 5f 5c 5c c9 5c 66 | 5f 5c 5c ca 0d 5f 5c 5c |.._\\.\f|_\\.._\\|
|000016c0| 1e 0b cc cd 5c 6e 5f 5a | ce 0b 5f 5a 1e 0f d0 d1 |....\n_Z|.._Z....|
|000016d0| 08 5f 5c 5c d2 0b 5f 5c | 5c d3 5c 66 5f 5c 5c 1e |._\\.._\|\.\f_\\.|
|000016e0| 14 d5 d6 08 5f 5c 5c d7 | 0b 5f 5c 5c d8 5c 66 5f |...._\\.|._\\.\f_|
|000016f0| 5c 5c d9 0d 5f 5c 5c 1e | 1a db dc 08 5f 5c 5c dd |\\.._\\.|...._\\.|
|00001700| 0b 5f 5c 5c de 5c 66 5f | 5c 5c df 0d 5f 5c 5c 1e |._\\.\f_|\\.._\\.|
|00001710| 20 e1 e2 08 5f 5c 5c e3 | 0b 5f 5c 5c e4 5c 66 5f | ..._\\.|._\\.\f_|
|00001720| 5c 5c 1e 25 e6 e7 08 5f | 5c 5c e8 0b 5f 5c 5c 1e |\\.%..._|\\.._\\.|
|00001730| 29 ea eb 08 5f 5c 5c 1e | 2c ed ee 08 5f 5c 5c 1e |)..._\\.|,..._\\.|
|00001740| 2f f0 f1 08 5f 5c 5c 1e | 32 f3 f4 08 5f 5c 5c 1e |/..._\\.|2..._\\.|
|00001750| 35 f6 f7 08 5f 5c 5c 1e | 38 f9 fa 08 5f 5c 5c 1e |5..._\\.|8..._\\.|
|00001760| 3b fc fd 08 5f 5c 5c 1e | 3e ff 81 40 00 08 5f 5c |;..._\\.|>..@.._\|
|00001770| 5c 1e 41 81 42 00 81 43 | 00 08 5f 5c 5c 1e 44 81 |\.A.B..C|.._\\.D.|
|00001780| 45 00 81 46 00 08 5f 5c | 5c 1e 47 81 48 00 81 49 |E..F.._\|\.G.H..I|
|00001790| 00 08 5f 5c 5c 1e 4a 81 | 4b 00 81 4c 00 08 5f 5c |.._\\.J.|K..L.._\|
|000017a0| 5c 1e 4d 81 4e 00 81 4f | 00 08 5f 5c 5c 1e 50 81 |\.M.N..O|.._\\.P.|
|000017b0| 51 00 81 52 00 0e 1a 21 | 5f 81 53 00 0e 0f 5f 81 |Q..R...!|_.S..._.|
|000017c0| 52 00 0e 14 21 5f 5c 5c | 81 54 00 81 52 00 0e 1a |R...!_\\|.T..R...|
|000017d0| 89 5c 5c 21 5f 5c 5c 81 | 55 00 81 52 00 0e 20 89 |.\\!_\\.|U..R.. .|
|000017e0| 5c 5c 21 5f 5c 5c 81 56 | 00 0e 0f 5f 81 52 00 0e |\\!_\\.V|..._.R..|
|000017f0| 1a 0e 14 5a 21 5f 5c 5c | 81 57 00 0e 0f 5f 81 52 |...Z!_\\|.W..._.R|
|00001800| 00 0e 1a 0e 14 5c 5c 21 | 5f 5c 5c 81 58 00 0e 0f |.....\\!|_\\.X...|
|00001810| 5f 0e 0f 5f 81 52 00 0e | 14 89 5c 5c 21 5f 5c 5c |_.._.R..|..\\!_\\|
|00001820| 81 59 00 81 52 00 0e 1a | 0e 20 89 5c 5c 5a 21 5f |.Y..R...|. .\\Z!_|
|00001830| 5c 5c 81 5a 00 81 52 00 | 0e 1a 0e 20 89 5c 5c 5c |\\.Z..R.|... .\\\|
|00001840| 5c 21 5f 5c 5c 81 5b 00 | 0e 0f 5f 81 52 00 0e 1a |\!_\\.[.|.._.R...|
|00001850| 89 5c 5c 0e 14 5c 5c 21 | 5f 5c 5c 81 5c 5c 00 81 |.\\..\\!|_\\.\\..|
|00001860| 52 00 0e 1a 81 5d 00 5f | 21 5f 5c 5c 81 5e 00 0e |R....]._|!_\\.^..|
|00001870| 0f 5f 81 52 00 0e 14 0e | 20 89 5c 5c 5c 5c 21 5f |._.R....| .\\\\!_|
|00001880| 5c 5c 81 5f 00 0e 0f 5f | 81 52 00 0e 14 0e 20 89 |\\._..._|.R.... .|
|00001890| 5c 5c 5a 21 5f 5c 5c 81 | 60 00 0e 0f 5f 81 52 00 |\\Z!_\\.|`..._.R.|
|000018a0| 0e 1a 89 5c 5c 0e 14 5a | 21 5f 5c 5c 81 61 00 81 |...\\..Z|!_\\.a..|
|000018b0| 52 00 0e 25 21 5f 5c 5c | 81 62 00 81 52 00 0e 1a |R..%!_\\|.b..R...|
|000018c0| 0e 14 89 5c 5c 5c 5c 21 | 5f 5c 5c 81 63 00 81 52 |...\\\\!|_\\.c..R|
|000018d0| 00 0e 1a 89 5c 5c 0e 20 | 89 5c 5c 5a 21 5f 5c 5c |....\\. |.\\Z!_\\|
|000018e0| 81 64 00 81 52 00 0e 14 | 81 5d 00 5f 21 5f 5c 5c |.d..R...|.]._!_\\|
|000018f0| 81 65 00 81 52 00 0e 1a | 0e 14 5c 5c 0e 20 81 66 |.e..R...|..\\. .f|
|00001900| 00 5f 5c 5c 21 5f 5c 5c | 81 67 00 81 52 00 0e 1a |._\\!_\\|.g..R...|
|00001910| 89 5c 5c 0e 20 89 5c 5c | 5c 5c 21 5f 5c 5c 81 68 |.\\. .\\|\\!_\\.h|
|00001920| 00 81 52 00 0e 1a 0e 14 | 5c 5c 0e 20 89 5c 5c 5c |..R.....|\\. .\\\|
|00001930| 5c 21 5f 5c 5c 81 69 00 | 81 52 00 0e 1a 0e 14 5a |\!_\\.i.|.R.....Z|
|00001940| 0e 20 81 66 00 5f 5a 21 | 5f 5c 5c 81 6a 00 81 52 |. .f._Z!|_\\.j..R|
|00001950| 00 0e 1a 0e 14 5a 0e 20 | 89 5c 5c 5a 21 5f 5c 5c |.....Z. |.\\Z!_\\|
|00001960| 81 6b 00 81 52 00 0e 1a | 81 5d 00 5f 0e 14 5c 5c |.k..R...|.]._..\\|
|00001970| 21 5f 5c 5c 81 6c 00 81 | 52 00 0e 1a 81 6d 00 5f |!_\\.l..|R....m._|
|00001980| 21 5f 5c 5c 1e 6e 81 6f | 00 81 52 00 0e 29 21 5f |!_\\.n.o|..R..)!_|
|00001990| 81 70 00 81 52 00 0e 2c | 21 5f 5c 5c 81 71 00 81 |.p..R..,|!_\\.q..|
|000019a0| 52 00 0e 2f 21 5f 5c 5c | 81 72 00 81 52 00 0e 32 |R../!_\\|.r..R..2|
|000019b0| 21 5f 5c 5c 81 73 00 81 | 52 00 0e 35 21 5f 5c 5c |!_\\.s..|R..5!_\\|
|000019c0| 81 74 00 81 52 00 0e 38 | 21 5f 5c 5c 81 75 00 81 |.t..R..8|!_\\.u..|
|000019d0| 52 00 0e 3b 21 5f 5c 5c | 81 76 00 81 52 00 0e 3e |R..;!_\\|.v..R..>|
|000019e0| 21 5f 5c 5c 81 77 00 81 | 52 00 0e 41 21 5f 5c 5c |!_\\.w..|R..A!_\\|
|000019f0| 81 78 00 81 52 00 0e 44 | 21 5f 5c 5c 81 79 00 81 |.x..R..D|!_\\.y..|
|00001a00| 52 00 0e 47 21 5f 5c 5c | 81 7a 00 81 52 00 0e 4a |R..G!_\\|.z..R..J|
|00001a10| 21 5f 5c 5c 81 7b 00 81 | 52 00 0e 4d 21 5f 5c 5c |!_\\.{..|R..M!_\\|
|00001a20| 81 7c 00 81 52 00 0e 50 | 21 5f 5c 5c 1e 7d 0e 0b |.|..R..P|!_\\.}..|
|00001a30| 0e 6e 5c 5c 0e 7d 5c 5c | 89 1e 7e 81 7f 00 81 80 |.n\\.}\\|..~.....|
|00001a40| 00 81 81 00 81 82 00 0e | 7e 21 21 21 89 1e 83 41 |........|~!!!...A|
|00001a50| 41 40 29 21 5b 5c 5c 0e | 84 81 85 00 a5 81 86 00 |A@)![\\.|........|
|00001a60| a5 5c 5c 2e 1b 87 22 20 | 5b 6b 20 31 32 33 36 2e |.\\..." |[k 1236.|
|00001a70| 38 34 39 39 39 39 39 39 | 39 39 39 39 39 20 54 20 |84999999|99999 T |
|00001a80| 54 32 20 54 33 20 54 34 | 20 32 34 35 31 35 35 30 |T2 T3 T4| 2451550|
|00001a90| 2e 30 39 37 36 34 39 39 | 39 39 39 20 32 39 2e 35 |.0976499|999 29.5|
|00001aa0| 33 30 35 38 38 38 35 33 | 30 30 30 30 30 31 20 2e |30588853|000001 .|
|00001ab0| 30 30 30 31 33 33 36 39 | 39 39 39 39 39 39 39 39 |00013369|99999999|
|00001ac0| 39 39 39 37 20 2d 31 2e | 35 65 2d 30 30 37 20 37 |9997 -1.|5e-007 7|
|00001ad0| 2e 32 39 39 39 39 39 39 | 39 39 39 39 39 39 39 37 |.2999999|99999997|
|00001ae0| 32 65 2d 30 31 30 20 4a | 44 45 20 31 20 2e 30 30 |2e-010 J|DE 1 .00|
|00001af0| 32 35 31 36 30 30 30 30 | 30 30 30 30 30 30 30 30 |25160000|00000000|
|00001b00| 35 20 37 2e 34 30 30 30 | 30 30 30 30 30 30 30 30 |5 7.4000|00000000|
|00001b10| 30 30 31 32 65 2d 30 30 | 36 20 45 20 32 2e 35 35 |0012e-00|6 E 2.55|
|00001b20| 33 33 39 39 39 39 39 39 | 39 39 39 39 39 39 20 32 |33999999|999999 2|
|00001b30| 39 2e 31 30 35 33 35 36 | 36 39 30 30 30 30 30 30 |9.105356|69000000|
|00001b40| 31 20 2d 32 2e 31 38 30 | 30 30 30 30 30 30 30 30 |1 -2.180|00000000|
|00001b50| 30 30 30 30 32 65 2d 30 | 30 35 20 2d 31 2e 30 39 |00002e-0|05 -1.09|
|00001b60| 39 39 39 39 39 39 39 39 | 39 39 39 39 39 39 65 2d |99999999|999999e-|
|00001b70| 30 30 37 20 73 75 6e 2d | 61 6e 6f 6d 61 6c 79 20 |007 sun-|anomaly |
|00001b80| 32 30 31 2e 35 36 34 33 | 20 33 38 35 2e 38 31 36 |201.5643| 385.816|
|00001b90| 39 33 35 32 38 20 2e 30 | 31 30 37 34 33 37 39 39 |93528 .0|10743799|
|00001ba0| 39 39 39 39 39 39 39 39 | 39 20 31 2e 32 33 39 30 |99999999|9 1.2390|
|00001bb0| 30 30 30 30 30 30 30 30 | 30 30 30 31 65 2d 30 30 |00000000|0001e-00|
|00001bc0| 35 20 2d 35 2e 37 39 39 | 39 39 39 39 39 39 39 39 |5 -5.799|99999999|
|00001bd0| 39 39 39 39 38 65 2d 30 | 30 38 20 6d 6f 6f 6e 2d |99998e-0|08 moon-|
|00001be0| 61 6e 6f 6d 61 6c 79 20 | 31 36 30 2e 37 31 30 38 |anomaly |160.7108|
|00001bf0| 30 30 30 30 30 30 30 30 | 30 31 20 33 39 30 2e 36 |00000000|01 390.6|
|00001c00| 37 30 35 30 32 37 34 30 | 30 30 30 30 32 20 2d 2e |70502740|00002 -.|
|00001c10| 30 30 31 36 33 34 31 30 | 30 30 30 30 30 30 30 30 |00163410|00000000|
|00001c20| 30 30 31 20 2d 32 2e 32 | 36 39 39 39 39 39 39 39 |001 -2.2|69999999|
|00001c30| 39 39 39 39 39 39 36 65 | 2d 30 30 36 20 31 2e 30 |9999996e|-006 1.0|
|00001c40| 39 39 39 39 39 39 39 39 | 39 39 39 39 39 39 39 65 |99999999|9999999e|
|00001c50| 2d 30 30 38 20 6d 6f 6f | 6e 2d 61 72 67 75 6d 65 |-008 moo|n-argume|
|00001c60| 6e 74 20 31 32 34 2e 37 | 37 34 36 30 30 30 30 30 |nt 124.7|74600000|
|00001c70| 30 30 30 30 31 20 2d 31 | 2e 35 36 33 37 35 35 38 |00001 -1|.5637558|
|00001c80| 20 2e 30 30 32 30 36 39 | 31 30 30 30 30 30 30 30 | .002069|10000000|
|00001c90| 30 30 30 30 32 20 32 2e | 31 34 39 39 39 39 39 39 |00002 2.|14999999|
|00001ca0| 39 39 39 39 39 39 39 35 | 65 2d 30 30 36 20 6f 6d |99999995|e-006 om|
|00001cb0| 65 67 61 20 32 39 39 2e | 37 36 39 39 39 39 39 39 |ega 299.|76999999|
|00001cc0| 39 39 39 39 39 38 20 2e | 31 30 37 34 30 37 39 39 |999998 .|10740799|
|00001cd0| 39 39 39 39 39 39 39 39 | 39 20 2d 2e 30 30 39 31 |99999999|9 -.0091|
|00001ce0| 37 33 20 41 31 20 32 35 | 31 2e 38 38 20 2e 30 31 |73 A1 25|1.88 .01|
|00001cf0| 36 33 32 30 39 39 39 39 | 39 39 39 39 39 39 39 39 |63209999|99999999|
|00001d00| 20 41 32 20 32 35 31 2e | 38 33 30 30 30 30 30 30 | A2 251.|83000000|
|00001d10| 30 30 30 30 30 31 20 32 | 36 2e 36 34 31 38 38 36 |000001 2|6.641886|
|00001d20| 20 41 33 20 33 34 39 2e | 34 32 30 30 30 30 30 30 | A3 349.|42000000|
|00001d30| 30 30 30 30 30 32 20 33 | 36 2e 34 31 32 34 37 38 |000002 3|6.412478|
|00001d40| 20 41 34 20 38 34 2e 36 | 35 39 39 39 39 39 39 39 | A4 84.6|59999999|
|00001d50| 39 39 39 39 39 37 20 31 | 38 2e 32 30 36 32 33 39 |999997 1|8.206239|
|00001d60| 20 41 35 20 31 34 31 2e | 37 34 30 30 30 30 30 30 | A5 141.|74000000|
|00001d70| 30 30 30 30 30 31 20 35 | 33 2e 33 30 33 37 37 30 |000001 5|3.303770|
|00001d80| 39 39 39 39 39 39 39 39 | 38 20 41 36 20 32 30 37 |99999999|8 A6 207|
|00001d90| 2e 31 33 39 39 39 39 39 | 39 39 39 39 39 39 39 20 |.1399999|9999999 |
|00001da0| 32 2e 34 35 33 37 33 32 | 20 41 37 20 31 35 34 2e |2.453732| A7 154.|
|00001db0| 38 34 20 37 2e 33 30 36 | 38 36 30 30 30 30 30 30 |84 7.306|86000000|
|00001dc0| 30 30 30 30 34 20 41 38 | 20 33 34 2e 35 32 30 30 |00004 A8| 34.5200|
|00001dd0| 30 30 30 30 30 30 30 30 | 30 30 33 20 32 37 2e 32 |00000000|003 27.2|
|00001de0| 36 31 32 33 39 20 41 39 | 20 32 30 37 2e 31 39 20 |61239 A9| 207.19 |
|00001df0| 2e 31 32 31 38 32 34 20 | 41 31 30 20 32 39 31 2e |.121824 |A10 291.|
|00001e00| 33 33 39 39 39 39 39 39 | 39 39 39 39 39 37 20 31 |33999999|999997 1|
|00001e10| 2e 38 34 34 33 37 39 20 | 41 31 31 20 31 36 31 2e |.844379 |A11 161.|
|00001e20| 37 32 20 32 34 2e 31 39 | 38 31 35 33 39 39 39 39 |72 24.19|81539999|
|00001e30| 39 39 39 39 39 20 41 31 | 32 20 32 33 39 2e 35 36 |99999 A1|2 239.56|
|00001e40| 20 32 35 2e 35 31 33 30 | 39 39 20 41 31 33 20 33 | 25.5130|99 A13 3|
|00001e50| 33 31 2e 35 35 30 30 30 | 30 30 30 30 30 30 30 30 |31.55000|00000000|
|00001e60| 31 20 33 2e 35 39 32 35 | 31 38 30 30 30 30 30 30 |1 3.5925|18000000|
|00001e70| 30 30 30 31 20 41 31 34 | 20 2d 2e 34 30 37 32 30 |0001 A14| -.40720|
|00001e80| 30 30 30 30 30 30 30 30 | 30 30 30 31 20 73 6f 6c |00000000|0001 sol|
|00001e90| 61 72 2d 73 69 6e 2d 64 | 65 67 72 65 65 73 20 2e |ar-sin-d|egrees .|
|00001ea0| 31 37 32 34 31 20 2e 30 | 31 36 30 38 30 30 30 30 |17241 .0|16080000|
|00001eb0| 30 30 30 30 30 30 30 30 | 31 20 2e 30 31 30 33 38 |00000000|1 .01038|
|00001ec0| 39 39 39 39 39 39 39 39 | 39 39 39 39 39 20 2e 30 |99999999|99999 .0|
|00001ed0| 30 37 33 38 39 39 39 39 | 39 39 39 39 39 39 39 39 |07389999|99999999|
|00001ee0| 38 38 20 2d 2e 30 30 35 | 31 33 39 39 39 39 39 39 |88 -.005|13999999|
|00001ef0| 39 39 39 39 39 39 38 38 | 20 2e 30 30 32 30 38 30 |99999988| .002080|
|00001f00| 30 30 30 30 30 30 30 30 | 30 30 30 30 31 20 2d 2e |00000000|00001 -.|
|00001f10| 30 30 31 31 31 30 30 30 | 30 30 30 30 30 30 30 30 |00111000|00000000|
|00001f20| 30 30 31 20 2d 2e 30 30 | 30 35 37 30 30 30 30 30 |001 -.00|05700000|
|00001f30| 30 30 30 30 30 30 30 30 | 31 31 20 2e 30 30 30 35 |00000000|11 .0005|
|00001f40| 35 39 39 39 39 39 39 39 | 39 39 39 39 39 39 39 36 |59999999|99999996|
|00001f50| 20 2d 2e 30 30 30 34 32 | 30 30 30 30 30 30 30 30 | -.00042|00000000|
|00001f60| 30 30 30 30 30 31 31 20 | 33 20 2e 30 30 30 34 32 |0000011 |3 .00042|
|00001f70| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 31 31 20 |00000000|0000011 |
|00001f80| 2e 30 30 30 33 38 30 30 | 30 30 30 30 30 30 30 30 |.0003800|00000000|
|00001f90| 30 30 30 30 37 20 2d 2e | 30 30 30 32 33 39 39 39 |00007 -.|00023999|
|00001fa0| 39 39 39 39 39 39 39 39 | 39 39 39 39 20 2d 2e 30 |99999999|9999 -.0|
|00001fb0| 30 30 31 37 30 30 30 30 | 30 30 30 30 30 30 30 30 |00170000|00000000|
|00001fc0| 30 30 32 20 2d 37 65 2d | 30 30 35 20 34 65 2d 30 |002 -7e-|005 4e-0|
|00001fd0| 30 35 20 34 65 2d 30 30 | 35 20 33 65 2d 30 30 35 |05 4e-00|5 3e-005|
|00001fe0| 20 2d 32 20 33 65 2d 30 | 30 35 20 2d 33 65 2d 30 | -2 3e-0|05 -3e-0|
|00001ff0| 30 35 20 33 65 2d 30 30 | 35 20 2d 32 65 2d 30 30 |05 3e-00|5 -2e-00|
|00002000| 35 20 2d 32 65 2d 30 30 | 35 20 32 65 2d 30 30 35 |5 -2e-00|5 2e-005|
|00002010| 20 34 20 63 6f 72 72 65 | 63 74 69 6f 6e 20 2e 30 | 4 corre|ction .0|
|00002020| 30 30 33 32 35 20 2e 30 | 30 30 31 36 35 30 30 30 |00325 .0|00165000|
|00002030| 30 30 30 30 30 30 30 30 | 30 30 32 20 2e 30 30 30 |00000000|002 .000|
|00002040| 31 36 33 39 39 39 39 39 | 39 39 39 39 39 39 39 39 |16399999|99999999|
|00002050| 37 20 2e 30 30 30 31 32 | 36 20 2e 30 30 30 31 31 |7 .00012|6 .00011|
|00002060| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 31 20 |00000000|0000001 |
|00002070| 36 2e 32 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |6.200000|00000000|
|00002080| 30 32 65 2d 30 30 35 20 | 36 65 2d 30 30 35 20 35 |02e-005 |6e-005 5|
|00002090| 2e 35 39 39 39 39 39 39 | 39 39 39 39 39 39 39 39 |.5999999|99999999|
|000020a0| 36 65 2d 30 30 35 20 34 | 2e 36 39 39 39 39 39 39 |6e-005 4|.6999999|
|000020b0| 39 39 39 39 39 39 39 39 | 33 65 2d 30 30 35 20 34 |99999999|3e-005 4|
|000020c0| 2e 31 39 39 39 39 39 39 | 39 39 39 39 39 39 39 39 |.1999999|99999999|
|000020d0| 33 65 2d 30 30 35 20 34 | 65 2d 30 30 35 20 33 2e |3e-005 4|e-005 3.|
|000020e0| 37 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 36 |70000000|00000006|
|000020f0| 65 2d 30 30 35 20 33 2e | 35 65 2d 30 30 35 20 32 |e-005 3.|5e-005 2|
|00002100| 2e 32 39 39 39 39 39 39 | 39 39 39 39 39 39 39 39 |.2999999|99999999|
|00002110| 38 65 2d 30 30 35 20 61 | 64 64 69 74 69 6f 6e 61 |8e-005 a|dditiona|
|00002120| 6c 20 6e 65 77 4a 44 45 | 20 73 6f 6c 61 72 2d 65 |l newJDE| solar-e|
|00002130| 70 68 65 6d 65 72 69 73 | 2d 63 6f 72 72 65 63 74 |phemeris|-correct|
|00002140| 69 6f 6e 20 63 61 6c 65 | 6e 64 61 72 2d 67 72 65 |ion cale|ndar-gre|
|00002150| 67 6f 72 69 61 6e 2d 66 | 72 6f 6d 2d 61 62 73 6f |gorian-f|rom-abso|
|00002160| 6c 75 74 65 20 66 6c 6f | 6f 72 20 63 61 6c 65 6e |lute flo|or calen|
|00002170| 64 61 72 2d 61 62 73 6f | 6c 75 74 65 2d 66 72 6f |dar-abso|lute-fro|
|00002180| 6d 2d 61 73 74 72 6f 20 | 64 61 74 65 20 63 61 6c |m-astro |date cal|
|00002190| 65 6e 64 61 72 2d 74 69 | 6d 65 2d 7a 6f 6e 65 20 |endar-ti|me-zone |
|000021a0| 36 30 2e 30 20 32 34 2e | 30 5d 20 37 20 28 23 24 |60.0 24.|0] 7 (#$|
|000021b0| 20 2e 20 35 36 39 32 29 | 5d 29 0a 23 40 34 34 30 | . 5692)|]).#@440|
|000021c0| 20 41 73 74 72 6f 6e 6f | 6d 69 63 61 6c 20 28 4a | Astrono|mical (J|
|000021d0| 75 6c 69 61 6e 29 20 64 | 61 79 20 6e 75 6d 62 65 |ulian) d|ay numbe|
|000021e0| 72 20 6f 66 20 66 69 72 | 73 74 20 6e 65 77 20 6d |r of fir|st new m|
|000021f0| 6f 6f 6e 20 6f 6e 20 6f | 72 20 61 66 74 65 72 20 |oon on o|r after |
|00002200| 61 73 74 72 6f 6e 6f 6d | 69 63 61 6c 0a 28 4a 75 |astronom|ical.(Ju|
|00002210| 6c 69 61 6e 29 20 64 61 | 79 20 6e 75 6d 62 65 72 |lian) da|y number|
|00002220| 20 64 2e 20 20 54 68 65 | 20 66 72 61 63 74 69 6f | d.  The| fractio|
|00002230| 6e 61 6c 20 70 61 72 74 | 20 69 73 20 74 68 65 20 |nal part| is the |
|00002240| 74 69 6d 65 20 6f 66 20 | 64 61 79 2e 0a 0a 54 68 |time of |day...Th|
|00002250| 65 20 64 61 74 65 20 61 | 6e 64 20 74 69 6d 65 20 |e date a|nd time |
|00002260| 61 72 65 20 6c 6f 63 61 | 6c 20 74 69 6d 65 2c 20 |are loca|l time, |
|00002270| 69 6e 63 6c 75 64 69 6e | 67 20 61 6e 79 20 64 61 |includin|g any da|
|00002280| 79 6c 69 67 68 74 20 73 | 61 76 69 6e 67 73 20 72 |ylight s|avings r|
|00002290| 75 6c 65 73 2c 0a 61 73 | 20 67 6f 76 65 72 6e 65 |ules,.as| governe|
|000022a0| 64 20 62 79 20 74 68 65 | 20 76 61 6c 75 65 73 20 |d by the| values |
|000022b0| 6f 66 20 63 61 6c 65 6e | 64 61 72 2d 64 61 79 6c |of calen|dar-dayl|
|000022c0| 69 67 68 74 2d 73 61 76 | 69 6e 67 73 2d 73 74 61 |ight-sav|ings-sta|
|000022d0| 72 74 73 2c 0a 63 61 6c | 65 6e 64 61 72 2d 64 61 |rts,.cal|endar-da|
|000022e0| 79 6c 69 67 68 74 2d 73 | 61 76 69 6e 67 73 2d 73 |ylight-s|avings-s|
|000022f0| 74 61 72 74 73 2d 74 69 | 6d 65 2c 20 63 61 6c 65 |tarts-ti|me, cale|
|00002300| 6e 64 61 72 2d 64 61 79 | 6c 69 67 68 74 2d 73 61 |ndar-day|light-sa|
|00002310| 76 69 6e 67 73 2d 65 6e | 64 73 2c 0a 63 61 6c 65 |vings-en|ds,.cale|
|00002320| 6e 64 61 72 2d 64 61 79 | 6c 69 67 68 74 2d 73 61 |ndar-day|light-sa|
|00002330| 76 69 6e 67 73 2d 65 6e | 64 73 2d 74 69 6d 65 2c |vings-en|ds-time,|
|00002340| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 79 6c 69 67 | calenda|r-daylig|
|00002350| 68 74 2d 74 69 6d 65 2d | 6f 66 66 73 65 74 2c 20 |ht-time-|offset, |
|00002360| 61 6e 64 0a 63 61 6c 65 | 6e 64 61 72 2d 74 69 6d |and.cale|ndar-tim|
|00002370| 65 2d 7a 6f 6e 65 2e 1f | 0a 28 64 65 66 61 6c 69 |e-zone..|.(defali|
|00002380| 61 73 20 27 6c 75 6e 61 | 72 2d 6e 65 77 2d 6d 6f |as 'luna|r-new-mo|
|00002390| 6f 6e 2d 6f 6e 2d 6f 72 | 2d 61 66 74 65 72 20 23 |on-on-or|-after #|
|000023a0| 5b 28 64 29 20 22 c0 c1 | c2 0b 21 21 21 89 1c 89 |[(d) "..|..!!!...|
|000023b0| 1c 41 41 40 29 5c 66 89 | 1c 89 1c 40 29 1d 5c 66 |.AA@)\f.|...@).\f|
|000023c0| 89 1c 41 40 29 1e 06 5c | 66 89 1c 41 41 40 29 1e |..A@)..\|f..AA@).|
|000023d0| 07 0e 06 0d 53 c8 5f 5c | 5c 1e 09 0d ca 56 83 68 |....S._\|\....V.h|
|000023e0| 00 0e 09 0d cb 5f cc 5c | 5c cd a5 5a 16 09 0e 07 |....._.\|\..Z....|
|000023f0| 89 1e 07 cb a6 ce 55 85 | 5f 00 0e 07 cf a6 ce 55 |......U.|_......U|
|00002400| 3f 86 5f 00 0e 07 d0 a6 | ce 55 29 83 68 00 0e 09 |?._.....|.U).h...|
|00002410| 54 16 09 0e 09 2d d1 a5 | 5c 5c 1e 07 c1 0e 07 d2 |T....-..|\\......|
|00002420| 5a d3 5f 21 1e 14 d5 0e | 14 21 89 1c 0b 57 83 93 |Z._!....|.!...W..|
|00002430| 00 0e 14 54 16 14 d5 0e | 14 21 89 14 82 80 00 c2 |...T....|.!......|
|00002440| 5c 66 21 89 1e 16 d7 0e | 16 21 5a d8 5f 1e 19 c0 |\f!.....|.!Z._...|
|00002450| d7 0e 16 21 21 1c da 5c | 66 0e 19 5c 22 1e 1b dc |...!!..\|f..\"...|
|00002460| 0e 1b 40 89 1c 89 1c 41 | 41 40 29 53 1e 1d 5c 66 |..@....A|A@)S..\f|
|00002470| 89 1c 89 1c 40 29 1d 5c | 66 89 1c 41 40 29 1e 06 |....@).\|f..A@)..|
|00002480| 5c 66 89 1c 41 41 40 29 | 1e 07 0e 06 0d 53 c8 5f |\f..AA@)|.....S._|
|00002490| 5c 5c 1e 09 0d ca 56 83 | 18 01 0e 09 0d cb 5f cc |\\....V.|......_.|
|000024a0| 5c 5c cd a5 5a 16 09 0e | 07 89 1e 07 cb a6 ce 55 |\\..Z...|.......U|
|000024b0| 85 0f 01 0e 07 cf a6 ce | 55 3f 86 0f 01 0e 07 d0 |........|U?......|
|000024c0| a6 ce 55 29 83 18 01 0e | 09 54 16 09 0e 09 2d 0e |..U)....|.T....-.|
|000024d0| 1d de 5f 5c 5c 0e 1d cb | a5 5c 5c 0e 1d cf a5 5b |.._\\...|.\\....[|
|000024e0| 5c 5c 0e 1d d0 a5 5c 5c | 2a 0e 1b 41 40 df a5 5c |\\....\\|*..A@..\|
|000024f0| 5c 21 2e 08 87 22 20 5b | 63 61 6c 65 6e 64 61 72 |\!..." [|calendar|
|00002500| 2d 67 72 65 67 6f 72 69 | 61 6e 2d 66 72 6f 6d 2d |-gregori|an-from-|
|00002510| 61 62 73 6f 6c 75 74 65 | 20 66 6c 6f 6f 72 20 63 |absolute| floor c|
|00002520| 61 6c 65 6e 64 61 72 2d | 61 62 73 6f 6c 75 74 65 |alendar-|absolute|
|00002530| 2d 66 72 6f 6d 2d 61 73 | 74 72 6f 20 64 20 64 61 |-from-as|tro d da|
|00002540| 74 65 20 6d 6f 6e 74 68 | 20 64 61 79 20 79 65 61 |te month| day yea|
|00002550| 72 20 33 31 20 64 61 79 | 2d 6f 66 2d 79 65 61 72 |r 31 day|-of-year|
|00002560| 20 32 20 34 20 32 33 20 | 31 30 20 30 20 31 30 30 | 2 4 23 |10 0 100|
|00002570| 20 34 30 30 20 33 36 35 | 2e 32 35 20 32 30 30 30 | 400 365|.25 2000|
|00002580| 2e 30 20 31 32 2e 33 36 | 38 34 39 39 39 39 39 39 |.0 12.36|84999999|
|00002590| 39 39 39 39 39 20 6b 20 | 6c 75 6e 61 72 2d 6e 65 |99999 k |lunar-ne|
|000025a0| 77 2d 6d 6f 6f 6e 2d 74 | 69 6d 65 20 61 2d 64 61 |w-moon-t|ime a-da|
|000025b0| 74 65 20 74 72 75 6e 63 | 61 74 65 20 32 34 20 74 |te trunc|ate 24 t|
|000025c0| 69 6d 65 20 64 73 74 2d | 61 64 6a 75 73 74 2d 74 |ime dst-|adjust-t|
|000025d0| 69 6d 65 20 61 64 6a 20 | 63 61 6c 65 6e 64 61 72 |ime adj |calendar|
|000025e0| 2d 61 73 74 72 6f 2d 66 | 72 6f 6d 2d 61 62 73 6f |-astro-f|rom-abso|
|000025f0| 6c 75 74 65 20 70 72 69 | 6f 72 2d 79 65 61 72 73 |lute pri|or-years|
|00002600| 20 33 36 35 20 32 34 2e | 30 5d 20 37 20 28 23 24 | 365 24.|0] 7 (#$|
|00002610| 20 2e 20 38 36 34 31 29 | 5d 29 0a 28 70 72 6f 76 | . 8641)|]).(prov|
|00002620| 69 64 65 20 28 71 75 6f | 74 65 20 6c 75 6e 61 72 |ide (quo|te lunar|
|00002630| 29 29 0a                |                         |)).     |        |
+--------+-------------------------+-------------------------+--------+--------+